home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs17.d81
/
cad403.sfx
/
prs
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
741b
|
29 lines
1 OPEN15,D0,15,"UI:":CLOSE15:A=USR(0),0,1,4
2 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17):A=USR(1):POKE679,23
3 OPEN15,4,15:CLOSE15
4 IFST=0THEN8
5 PRINTCHR$(14)"[147][212]URN ON THE PRINTER AND PRESS A KEY."
6 GETA$:IFA$=""THEN6
7 GOTO3
8 PRINTCHR$(14)"[147][208]RINT AT [204]EFT, [195]ENTER, OR [210]IGHT ?"
9 GETA$:IFA$=""THEN9
10 IFA$="L"THENPOKE679,6:GOTO14
11 IFA$="C"THENPOKE679,23:GOTO14
12 IFA$="R"THENPOKE679,40:GOTO14
13 GOTO23
14 OPEN4,4,5:CMD4
15 SYS36891
16 PRINT#4:CLOSE4
17 PRINT"[147] ! TO SWITCH SCREENS AND PRINT,"
18 PRINT"[198]1 TO PRINT THE SAME SCREEN AGAIN,"
19 PRINT"OR ANY OTHER KEY TO EXIT."
20 GETA$:IFA$=""THEN20
21 IFA$="!"THENSYS36867:GOTO8
22 IFA$=CHR$(133)THEN8
23 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(34),16,Y,6:A=USR(34),X,231,7
24 FORT=0TO3:A=USR(33),T:NEXT:SYS36912
25 GETA$:IFA$=""THEN25
26 IFA$=CHR$(135)THENSYS36885:LOADA$,D0
27 POKE780,ASC(A$):SYS32813
28 GOTO24